<!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>管理主页</title>
<link href="Style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="0">
  <tr>
    <td valign="middle" height="30" style="padding-left:35px; font-weight:bold">欢迎您：<font color="red"><%=session("SYSUser")%></font></td>
  </tr>
  <tr>
     <td valign="top" align="center">
  
<%
enableIco="<div class='left icoBtn_do_i'><div class='btnIco btnChange'></div></div>"
disabledIco="<div class='left icoBtn_do_i'><div class='btnIco btnDel'></div></div>"

Dim arrInstObj(20)
arrInstObj(0) = "MSWC.AdRotator"
arrInstObj(1) = "MSWC.BrowserType"
arrInstObj(2) = "MSWC.NextLink"
arrInstObj(3) = "MSWC.Tools"
arrInstObj(4) = "MSWC.Status"
arrInstObj(5) = "MSWC.Counters"
arrInstObj(6) = "IISSample.ContentRotator"
arrInstObj(7) = "IISSample.PageCounter"
arrInstObj(8) = "MSWC.PermissionChecker"
arrInstObj(9) = "Scripting.FileSystemObject"
arrInstObj(10) = "adodb.connection"    
arrInstObj(11) = "SoftArtisans.FileUp"
arrInstObj(12) = "SoftArtisans.FileManager"
arrInstObj(13) = "JMail.SMTPMail"
arrInstObj(14) = "CDONTS.NewMail"
arrInstObj(15) = "Persits.MailSender"
arrInstObj(16) = "LyfUpload.UploadFile"
arrInstObj(17) = "Persits.Jpeg"
arrInstObj(18) = "Persits.Upload.1"
arrInstObj(19) = "CDO.Message"
arrInstObj(20) = "CDO.Configuration"
%>
<div style="width:95%; border-left:1px solid #D7D7D7; border-top:1px solid #D7D7D7; border-right:1px solid #D7D7D7">
<table class="cTable table tLeft">
  <tr class="cTitle toolbarBg" id="Title">
    <td colspan="2" align="center"><b>系 统 信 息</b></td>
  </tr>
  <tr> 
    <td width="50%" height="23">用户名： <%=session("SYSUser")%></td>
    <td>IP： <%=GetIP()%></td>
  </tr>
  <tr> 
    <td>身份过期： <%=Session.timeout%> 分钟</td>
    <td>现在时间： <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></td>
  </tr>
  <tr> 
    <td>上线次数： <%=LoginTimes%></td>
    <td>本次上线时间： <%=admin_now_login_time%></td>
  </tr>
  <tr> 
    <td>上次上线IP： <%=admin_last_login_ip%></td>
    <td>上次上线时间： <%=admin_last_login_time%></td>
  </tr>
  <tr> 
    <td>服务器域名： <%=Request.ServerVariables("Http_HOST")%></td>
    <td>脚本解释引擎： <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr> 
    <td>服务器软件的名称： <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
    <td>浏览器版本： <%=Request.ServerVariables("Http_User_Agent")%></td>
  </tr>
  <tr>
    <td><div class="left" style="line-height:20px">FSO文本读写：</div>
      <%If Not IsObjInstalled(arrInstObj(9)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%></td>
    <td><div class="left" style="line-height:20px">数据库使用：</div>
      <%If Not IsObjInstalled(arrInstObj(10)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%>
	  <div class="left" style="line-height:20px">
	  <%
	  if SqlDriverType=1 then 
	  Response.Write("Access (*.mdb)") 
	  elseif SqlDriverType=2 then 
	  Response.Write("MSSQL (Microsoft SQL Server)") 
	  end if
	  %>
	  </div>
	  </td>
  </tr>
  <tr> 
    <td><div class="left" style="line-height:20px">Jmail组件支持：</div> 
	  <%If Not IsObjInstalled(arrInstObj(13)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%> </td>
    <td>
	<div class="left" style="line-height:20px"><%=arrInstObj(19)%></div>
	<%If Not IsObjInstalled(arrInstObj(19)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%> 
	<div class="left" style="line-height:20px"> / <%=arrInstObj(20)%></div>
	<%If Not IsObjInstalled(arrInstObj(20)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%> 
	  </td>
  </tr>
  <tr>
    <td><div class="left" style="line-height:20px">AspEmail：</div>
	<%If Not IsObjInstalled(arrInstObj(15)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%> </td>
    <td><div class="left" style="line-height:20px">AspUpload：</div>
	<%If Not IsObjInstalled(arrInstObj(18)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%> </td>
  </tr>
  <tr>
    <td><div class="left" style="line-height:20px">AspJpeg：</div>
	<%If Not IsObjInstalled(arrInstObj(17)) Then
	  response.Write disabledIco
	  else
	  response.Write enableIco
	  end if%> </td>
    <td><div class="left" style="line-height:20px">化境HTTP无组件上传程序：</div> 
      <%=enableIco%></td>
  </tr>
</table>
</div>
   </td>
  </tr>
</table>
</body>
</html>